home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOS3.DMS / in.adf / RAMOS_Install.AMOS / RAMOS_Install.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1978-10-10  |  4.5 KB  |  162 lines
  1. '                        RAMOS Installation Program  
  2. '
  3. '                              By P.J.Hickman  
  4. '
  5. '                        Please Read This Message:   
  6. '
  7. ' Run this program alone, without loading any other accessories or 
  8. ' programs beforehand, you should also go to the SEARCH menu and set 
  9. ' the text buffer to 5000 bytes to give you the max amount of memory 
  10. ' for copying the files. When the program refers to 'AMOS:' it means       
  11. ' your disc marked "AMOS Program Disc", when it refers to 'EXTRAS:'    
  12. ' the program wants the disc marked "AMOS Extras Disc".  
  13. '
  14. ' Hard disc users! Run this from floppy disc if you have assigned  
  15. ' AMOS: to an area of your hard disc.  
  16. '
  17. ' Have fun and read my new AMOS column in AMIGA COMPUTING, coming soon.  
  18. '
  19. Dir$="Df0:"
  20. Default 
  21. Screen Close 0
  22. Close Editor 
  23. SET_UP_SCREEN
  24. DEF_DRIVE$="df0:"
  25. Dim FILE$(6)
  26. Global DEF_DRIVE$,DISC$,FOLDER$,FILE$(),NAME$
  27. Restore C0PY_DATA
  28. Cls 0
  29. Centre At(,2)+Border$("RAMOS installer V 1.0",2)
  30. Centre At(,5)+"Ensure you have created a blank formatted disc."
  31. Centre At(,9)+"Insert the AMOS Programs disc and"
  32. Centre At(,10)+"press a key to begin."
  33. Clear Key 
  34. Wait Key 
  35. Cls 0
  36. Repeat 
  37.    Read DISC$
  38.    If DISC$<>"-1"
  39.       Read NAME$
  40.       Read FOLDER$
  41.       TEMP$=DEF_DRIVE$+Left$(FOLDER$,Len(FOLDER$)-1)
  42.       Read TIME
  43.       For LOP=1 To TIME
  44.          Read FILE$(LOP)
  45.          FILE_READ[FOLDER$+FILE$(LOP),LOP+5]
  46.       Next LOP
  47.       PAUSE_FOR_USER
  48.       If Not Exist(DEF_DRIVE$)
  49.          PAUSE_FOR_USER
  50.       End If 
  51.       If Not Exist(TEMP$)
  52.          Mkdir TEMP$
  53.       End If 
  54.       For LOP=1 To TIME
  55.          FILE_WRITE[FOLDER$+FILE$(LOP),LOP+5]
  56.       Next LOP
  57.    End If 
  58. Until DISC$="-1"
  59. Cls 0
  60. Centre At(,5)+Border$("Writing Startup-Sequence.......",2)
  61. If Not Exist(DEF_DRIVE$+"s/")
  62.    Mkdir DEF_DRIVE$+"s"
  63. End If 
  64. Bsave DEF_DRIVE$+"s/Startup-Sequence",Start(5) To Start(5)+Length(5)
  65. Wait 10
  66. Cls 0
  67. Centre At(,1)+"Now go to the CLI and INSTALL your disc."
  68. Centre At(,3)+"This is done by typing the following line from the CLI:"
  69. Centre At(,5)+"Install Df0:"
  70. Centre At(,7)+"The program you want to run automatically from this"
  71. Centre At(,8)+"disc must now be called AUTOEXEC.AMOS"
  72. Centre At(,9)+"and saved into the root directory."
  73. Centre At(,10)+"Press a key to continue."
  74. Clear Key 
  75. Wait Key 
  76. Cls 0
  77. Centre At(,2)+"Be sure your run-time program creates a default screen"
  78. Centre At(,3)+"before printing any text or creating bobs etc. The default"
  79. Centre At(,4)+"screen is NOT set-up automatically. This is so that you can"
  80. Centre At(,5)+"decide for yourself how you want your program to begin."
  81. Centre At(,10)+"Press a key to end."
  82. Clear Key 
  83. Wait Key 
  84. Default 
  85. Edit 
  86. Procedure SET_UP_SCREEN
  87.    Screen Open 0,640,100,2,Hires
  88.    Flash Off : Curs Off : Cls 0 : Hide On 
  89.    Palette 0,$FFF
  90.    Paper 0
  91. End Proc
  92. Procedure FILE_READ[SOURCE$,BANK]
  93.    PAUSE_FOR_DISC[DISC$]
  94.    Open In 1,DISC$+SOURCE$
  95.    L=Lof(1)
  96.    Close 
  97.    Reserve As Work BANK,L
  98.    Cls 0
  99.    Centre At(,5)+"READING FILE  '"+DISC$+SOURCE$+"'"
  100.    Bload DISC$+SOURCE$,Start(BANK)
  101. End Proc
  102. Procedure FILE_WRITE[SOURCE$,BANK]
  103.    Cls 0
  104.    Centre At(,5)+"WRITING FILE  'DF0:"+SOURCE$+"'"
  105.    Bsave DEF_DRIVE$+SOURCE$,Start(BANK) To Start(BANK)+Length(BANK)
  106.    Erase BANK
  107. End Proc
  108. Procedure PAUSE_FOR_DISC[D$]
  109.    While Not Exist(D$)
  110.       Boom 
  111.       Cls 0
  112.       Centre At(,5)+Border$("Insert the "+NAME$+" disc into any drive!",2)
  113.       Repeat 
  114.       Until Exist(D$)
  115.       Clear Key 
  116.    Wend 
  117. End Proc
  118. Procedure PAUSE_FOR_USER
  119.    Bell 
  120.    Cls 0
  121.    Centre At(,5)+Border$("Insert your OWN disc into "+DEF_DRIVE$,2)
  122.    Centre At(,9)+"Press any key when ready"
  123.    Wait 20
  124.    Clear Key 
  125.    Repeat 
  126.    Until Exist(DEF_DRIVE$) and(Inkey$<>"" or Mouse Click)
  127.    Clear Key 
  128. End Proc
  129. ' disc, folder, amount of proggies to copy 
  130. C0PY_DATA:
  131. Data "AMOS:","AMOS Programs Disc","AMOS_System/",6
  132. Data "Compact"
  133. Data "Default.Font"
  134. Data "Default.Key"
  135. Data "Mouse.Abk"
  136. Data "Music"
  137. Data "Request"
  138. Data "AMOS:","AMOS Programs Disc","c/",2
  139. Data "DiskChange"
  140. Data "Mount"
  141. Data "AMOS:","AMOS Programs Disc","devs/",5
  142. Data "Narrator.Device"
  143. Data "Parallel.Device"
  144. Data "Printer.Device"
  145. Data "Serial.Device"
  146. Data "System-Configuration"
  147. Data "AMOS:","AMOS Programs Disc","libs/",5
  148. Data "Diskfont.Library"
  149. Data "Icon.Library"
  150. Data "Mathieeedoubbas.Library"
  151. Data "Mathtrans.Library"
  152. Data "Translator.Library"
  153. Data "AMOS:","AMOS Programs Disc","l/",4
  154. Data "Disk-Validator"
  155. Data "Fastfilesystem"
  156. Data "Port-Handler"
  157. Data "Speak-Handler"
  158. Data "EXTRAS:","AMOS Extras Disc","AMOS_System/",1
  159. Data "RAMOS.Env"
  160. Data "EXTRAS:","AMOS Extras Disc","",1
  161. Data "RAMOS"
  162. Data "-1"